home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / PowerCrawler.lha / PowerCrawler / Install < prev    next >
Text File  |  1997-05-28  |  13KB  |  454 lines
  1. ;
  2. ;************************************************************************
  3. ;*                                    *
  4. ;*            Installation Script for PowerCrawler V1.20        *
  5. ;*              ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯        *
  6. ;*    (C) Copyright 1997 by Georg Steger. All rights reserved!    *
  7. ;*                                    *
  8. ;************************************************************************
  9.  
  10. (set LangFound 0)
  11.  
  12. (if (= "deutsch" @language)
  13.     (
  14.      (set #MSG_WELCOME "Willkommen zum Installationsprogramm für \"PowerCrawler\".")
  15.      (set #MSG_ASKLEVEL "Bitte wählen Sie, wie die Installation durchgeführt werden soll, je nach ihrem Wissensstand über den Amiga.")
  16.      (set #MSG_NOHELP "Keine Hilfe vorhanden!\n\nBestätigen Sie einfach alles und es sollte\nfunktionieren!")
  17.      (set #MSG_NeedsOS3.0 "PowerCrawler benötigt zumindest das\nAmiga OS 3.0, um zu funktionieren.\nTut mir leid")
  18.      (set #MSG_AllOK "Installation erfolgreich abgeschlossen!")
  19.      (set #MSG_SelectPath "Wo soll PowerCrawler installiert werden?\nEin Verzeichnis \"PowerCrawler\" wird automatisch erzeugt!")
  20.      (set #MSG_AllDone "PowerCrawler ist nun installiert. Starten Sie\nes durch Doppelklick auf \"PowerCrawler\"!")
  21.      (set #MSG_CopyingMain "Kopiere Hauptdateien und -verzeichnisse!")
  22.      (set #MSG_CopyingFiles "Kopiere: ")
  23.      (set #MSG_InstallWhat "Was wollen Sie installieren?")
  24.      (set #MSG_Startup "Füge PowerCrawler-Assign in S:User-Startup an!")
  25.      (set #MSG_MakeDir "Erzeuge Verzeichnis:\n\n")
  26.      (set #MSG_ToolType "Ändere Icon-Einstellung auf No-Icon-Position")
  27.      (set #MSG_WhichLanguage "Welche Sprachen sollen für die Benutzeroberfläche\ninstalliert werden (Englisch ist eingebaut)?")
  28.      (set #MSG_InPlace "Installiere PowerCrawler in gleichem Verzeichnis\n(\"in Place\")")
  29.      (set #MSG_CopyIO "Kopiere externe Level-Lade/Speicher-Routinen:\n(Nicht unbedingt erforderlich)")
  30.      (set #MSG_CopyPL "Kopiere externe Bild-Lade-Routinen:\n(Nicht unbedingt erforderlich)")
  31.      (set #MSG_CopyIcon "Kopiere Standard-Icons:")
  32.      (set #MSG_CopyCDCT "Kopiere Dateien für Katalog-Übersetzungen (CD,CT):")
  33.      (set #MSG_CopyPrj "Kopiere Demo Projekte:")
  34.      (set #MSG_CopyMap "Kopiere Demo Levels:")
  35.      (set #MSG_CopyPic "Kopiere Demo Bilder:")
  36.      (set #MSG_CopyDev "Kopiere Entwickler-Dateien:")
  37.      (set #MSG_CopyDoc "Kopiere Dokumentation:")
  38.      (set #MSG_CopyCat "Kopiere Übersetzung:")
  39.      (set #MSG_CopySet "Kopiere Voreinstellungs-Dateien:")
  40.      (set #MSG_UserAsk11 "Demo Projekte")
  41.      (set #MSG_UserAsk12 "Demo Levels")
  42.      (set #MSG_UserAsk13 "Demo Bilder")
  43.      (set #MSG_UserAsk14 "Entwickler Dateien")
  44.      (set #MSG_UserAsk15 "Dokumentation")
  45.      (set #MSG_UserAsk21 "Deutsch")
  46.      (set LangFound 1)
  47.     )
  48. )
  49.  
  50. (if (= "italiano" @language)
  51.     (
  52.      (set #MSG_WELCOME "Benvenuti nel programma di installazione di PowerCrawler.")
  53.      (set #MSG_ASKLEVEL "Indicare come l'installazione deve procedere (secondo la vostra conoscenza di Amiga).")
  54.      (set #MSG_NOHELP "Niente aiuto a disposizione!\nConferma tutto e dovrebbe funzionare!")
  55.      (set #MSG_NeedsOS3.0 "PowerCrawler richiede almeno l'Amiga OS 3.0 per funzionare. Mi dispiace!")
  56.      (set #MSG_AllOK "Installazione terminata con successo!")
  57.      (set #MSG_SelectPath "Dove vuole installare PowerCrawler?\nUna directory \"PowerCrawler\" sarà creata automaticamente!")
  58.      (set #MSG_AllDone "PowerCrawler è installato. Lo lanci con un doppio click su \"PowerCrawler\"!")
  59.      (set #MSG_CopyingMain "Copio i file e directory più importanti!")
  60.      (set #MSG_CopyingFiles "Copio: ")
  61.      (set #MSG_InstallWhat "Scelga cosa installare!")
  62.      (set #MSG_Startup "Aggiungo il PowerCrawler-Assign alla S:User-Startup!")
  63.      (set #MSG_MakeDir "Creo il directory:\n\n")
  64.      (set #MSG_ToolType "Cambio le impostazioni di posizione del Icon in No-Icon-Position")
  65.      (set #MSG_WhichLanguage "Quali lingue vuole installare per l'User Interface?\n(L'inglese è la lingua BUILT IN)")
  66.      (set #MSG_InPlace "Installo PowerCrawler nella stessa directory (\"in Place\")")
  67.      (set #MSG_CopyIO "Copio Map-Loaders/Savers esterni:\n(Non necessari per forza)")
  68.      (set #MSG_CopyPL "Copio Loaders di immagini esterni:\n(Non necessari per forza)")
  69.      (set #MSG_CopyIcon "Copio i Standard-Icons:")
  70.      (set #MSG_CopyCDCT "Copio i Files necessari per poter fare traduzioni dei catalogi (CD,CT):")
  71.      (set #MSG_CopyPrj "Copio Progetti Demo:")
  72.      (set #MSG_CopyMap "Copio Maps Demo:")
  73.      (set #MSG_CopyPic "Copio Immagini Demo:")
  74.      (set #MSG_CopyDev "Copio i Files per Programmatori:")
  75.      (set #MSG_CopyDoc "Copio Documentazione:")
  76.      (set #MSG_CopyCat "Copio Traduzione:")
  77.      (set #MSG_CopySet "Copio i Setting Files:")
  78.      (set #MSG_UserAsk11 "Progetti Demo")
  79.      (set #MSG_UserAsk12 "Maps Demo")
  80.      (set #MSG_UserAsk13 "Immagini Demo")
  81.      (set #MSG_UserAsk14 "Files per Programmatori")
  82.      (set #MSG_UserAsk15 "Documentazione")
  83.      (set #MSG_UserAsk21 "Deutsch")
  84.      (set LangFound 1)
  85.     )
  86. )
  87.  
  88. (if (= 0 LangFound)
  89.     (
  90.      (set #MSG_WELCOME "Welcome to the PowerCrawler installation utility.")
  91.      (set #MSG_ASKLEVEL "Please indicate how the installation should proceed (based upon your knowledge of the Amiga Computer).")
  92.      (set #MSG_NOHELP "No Help available!\n\nJust confirm everything and it should work!")
  93.      (set #MSG_NeedsOS3.0 "PowerCrawler needs at least Amiga OS 3.0\nto run. Sorry!")
  94.      (set #MSG_AllOK "Installation successfully terminated!")
  95.      (set #MSG_SelectPath "Where do you wish to install PowerCrawler?\nA drawer called \"PowerCrawler\" will be created automatically!")
  96.      (set #MSG_AllDone "PowerCrawler is now installed. Start it by\n double-clicking the \"PowerCrawler\"-Icon")
  97.      (set #MSG_CopyingMain "Copying main Files and Directories!")
  98.      (set #MSG_CopyingFiles "Copying: ")
  99.      (set #MSG_InstallWhat "Select what you want to install!")
  100.      (set #MSG_Startup "Adding PowerCrawler-Assign to the S:User-Startup")
  101.      (set #MSG_MakeDir "Creating Directory:\n\n")
  102.      (set #MSG_ToolType "Changing Icon-Settings to No-Icon-Position")
  103.      (set #MSG_WhichLanguage "Which languages do you want for the\nUser Interface (English is built in)?")
  104.      (set #MSG_InPlace "Installing PowerCrawler in place!")
  105.      (set #MSG_CopyIO "Copying external Map-Loaders/Savers:\n(PowerCrawler works without them, too)")
  106.      (set #MSG_CopyPL "Copying external Picture-Loaders:\n(PowerCrawler works without them, too)")
  107.      (set #MSG_CopyIcon "Copying Standard-Icons:")
  108.      (set #MSG_CopyCDCT "Copying necessary Files for translating Catalogs. (CD,CT)")
  109.      (set #MSG_CopyPrj "Copying Demo Projects:")
  110.      (set #MSG_CopyMap "Copying Demo Maps:")
  111.      (set #MSG_CopyPic "Copying Demo Pictures:")
  112.      (set #MSG_CopyDev "Copying Developer Files:")
  113.      (set #MSG_CopyDoc "Copying Documentation:")
  114.      (set #MSG_CopyCat "Copying Translation:")
  115.      (set #MSG_CopySet "Copying Setting Files:")
  116.      (set #MSG_UserAsk11 "Demo Projects")
  117.      (set #MSG_UserAsk12 "Demo Maps")
  118.      (set #MSG_UserAsk13 "Demo Pictures")
  119.      (set #MSG_UserAsk14 "Developer Files")
  120.      (set #MSG_UserAsk15 "Documenatation")
  121.      (set #MSG_UserAsk21 "German")
  122.     )
  123. )
  124.  
  125.  
  126. ;
  127. ;    ******** CHECK OS VERSION *********
  128. ;
  129.  
  130.  
  131. (set #OSVersion   (/ (getversion) 65536))
  132. (if (< #OSVersion 39)
  133.   (abort #MSG_NeedsOS3.0)
  134. )
  135.  
  136. (set #MSG_WELCOME2 "\n\n\n(This installation Script is available in english, deutsch and italiano. If you don't get the right language add the Tooltype \"LANGUAGE=????\" to the Install-Icon. To do this abort Installation now. Activate the Install-Icon with a single Mouse-CLick.")
  137. (set #MSG_WELCOME3 " Select \"Information\" in the Icons-Menu. A Window will appear, click on \"NEW\". Type in \"LANGUAGE=????\". ???? is the name of the language which MUST be lowercase. Click on the \"SAVE\" Button. That's it. This way you should get the desired language.)")
  138.  
  139. (message #MSG_WELCOME #MSG_WELCOME2 #MSG_WELCOME3)
  140. (welcome #MSG_ASKLEVEL)
  141.  
  142. (set #Destination
  143.     (Expandpath
  144.         (askdir (prompt #MSG_SelectPath)
  145.             (default @default-dest)
  146.             (help #MSG_NOHELP)
  147.         )
  148.     )
  149. )
  150.  
  151. (if (= #Destination (Expandpath ""))
  152.     ((message #MSG_InPlace)
  153.      (set @default-dest #Destination)
  154.      (makeassign "PowerCrawler" @default-dest)
  155.      (set #MyCommand (cat "Assign PowerCrawler: \"" @default-dest "\""))
  156.      (startup "PowerCrawler"
  157.         (prompt #MSG_Startup)
  158.         (help #MSG_NOHELP)
  159.         (command #MyCommand)
  160.         (confirm)
  161.      )
  162.      (complete 100)
  163.      (exit #MSG_AllDone)
  164.     )
  165. )
  166. (set @default-dest (tackon #Destination "PowerCrawler"))
  167.  
  168. ;
  169. ;        **** Ask what to install ****
  170. ;
  171.  
  172.  
  173. (set #MyMask (askoptions (prompt #MSG_InstallWhat)
  174.             (help #MSG_NoHelp)
  175.             (choices #MSG_UserAsk11 #MSG_Userask12 #MSG_UserAsk13 #MSG_UserAsk14 #MSG_UserAsk15)
  176.             (default -1)
  177.         )
  178. )
  179.  
  180. (set #LangMask (askoptions (prompt #MSG_WhichLanguage)
  181.                (help #MSG_NoHelp)
  182.                (choices #MSG_Userask21)
  183.                (default -1)
  184.         )
  185. )
  186. ;
  187. ;        ********* MAKEDIR *********
  188. ;
  189.  
  190.  
  191. (complete 0)
  192.  
  193. (makedir @default-dest
  194.     (prompt (cat #MSG_MakeDir @default-dest))
  195.     (help #MSG_NOHELP)
  196.     (confirm)
  197. )
  198.  
  199. (copyfiles (help #MSG_NOHELP)
  200.        (prompt #MSG_CopyingFiles)
  201.        (source "/PowerCrawler.info")
  202.        (dest #Destination)
  203.        (confirm)
  204. )
  205.  
  206. (tooltype (help #MSG_NOHELP)
  207.       (prompt #MSG_Tooltype)
  208.       (dest (tackon #Destination "PowerCrawler"))
  209.       (noposition)
  210.       (confirm)
  211. )
  212.  
  213. (complete 5)
  214. ;
  215. ;        ******* COPY MAIN FILES *******
  216. ;
  217.  
  218. (copyfiles (prompt #MSG_CopyingMain)
  219.        (help #MSG_NOHELP)
  220.        (source "")
  221.        (choices "PowerCrawler" "ClickMe" "Projects.info" "Maps.info" "Pictures.info" "Icons.info" "Catalogs.info" "Logo")
  222.        (dest @default-dest)
  223.        (infos)
  224.        (confirm)
  225. )
  226.  
  227. (complete 30)
  228.  
  229. (copyfiles (prompt #MSG_CopySet)
  230.        (help #MSG_NOHELP)
  231.        (source "Prefs")
  232.        (dest (tackon @default-dest "Prefs"))
  233.        (all)
  234.        (confirm)
  235. )
  236.  
  237. (complete 35)
  238.  
  239. (copyfiles (prompt #MSG_CopyIO)
  240.        (help #MSG_NOHELP)
  241.        (source "ExternalIO")
  242.        (dest (tackon @default-dest "ExternalIO"))
  243.        (all)
  244.        (confirm)
  245. )
  246.  
  247. (if (= 0 (exists (tackon @default-dest "ExternalIO")))
  248.         (makedir (tackon @default-dest "ExternalIO")
  249.                  (prompt (cat #MSG_MakeDir (tackon @default-dest "ExternalIO")))
  250.                  (help #MSG_NOHELP)
  251.                  (confirm)
  252.         )
  253. )
  254.  
  255. (complete 40)
  256.  
  257. (copyfiles (prompt #MSG_CopyPL)
  258.        (help #MSG_NOHELP)
  259.        (source "ExternalPL")
  260.        (dest (tackon @default-dest "ExternalPL"))
  261.        (all)
  262.        (confirm)
  263. )
  264.  
  265. (if (= 0 (exists (tackon @default-dest "ExternalPL")))
  266.         (makedir (tackon @default-dest "ExternalPL")
  267.                  (prompt (cat #MSG_MakeDir (tackon @default-dest "ExternalPL")))
  268.                  (help #MSG_NOHELP)
  269.                  (confirm)
  270.         )
  271. )
  272.  
  273. (complete 42)
  274.  
  275. (copyfiles (prompt #MSG_CopyIcon)
  276.        (help #MSG_NOHELP)
  277.        (source "Icons")
  278.        (dest (tackon @default-dest "Icons"))
  279.        (all)
  280.        (confirm)
  281. )
  282.  
  283. (complete 44)
  284.  
  285. (copyfiles (prompt #MSG_CopyCDCT)
  286.        (help #MSG_NOHELP)
  287.        (source "Catalogs")
  288.        (dest (tackon @default-dest "Catalogs"))
  289.        (pattern "(#?.cd#?|#?.ct#?)")
  290.        (infos)
  291.        (confirm)
  292. )
  293.  
  294. ;
  295. ; ** Deutsche Catalog-Files
  296. ;
  297. (if (= 1 (BITAND #LangMask 1))
  298.     (copyfiles
  299.         (prompt #MSG_CopyCat)
  300.         (help #MSG_NOHELP)
  301.         (source "Catalogs/Deutsch")
  302.         (dest (tackon @default-dest "Catalogs/Deutsch"))
  303.         (infos)
  304.         (confirm)
  305.         (all)
  306.     )
  307. )
  308.  
  309. (complete 46)
  310.  
  311. (makedir (tackon @default-dest "Projects")
  312.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Projects")))
  313.      (help #MSG_NOHELP)
  314.      (confirm)
  315. )
  316.  
  317. (complete 48)
  318.  
  319. (makedir (tackon @default-dest "Maps")
  320.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Maps")))
  321.      (help #MSG_NOHELP)
  322.      (confirm)
  323. )
  324.  
  325. (complete 50)
  326.  
  327. (makedir (tackon @default-dest "Pictures")
  328.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Pictures")))
  329.      (help #MSG_NOHELP)
  330.      (confirm)
  331. )
  332.  
  333.  
  334. ;
  335. ;        **** DEMO PROJECTS ****
  336. ;
  337.  
  338.  
  339. (complete 60)
  340.  
  341. (if (= 1 (BITAND #MyMask 1))
  342.     (copyfiles (help #MSG_NOHELP)
  343.                (prompt #MSG_CopyPrj)
  344.                (source "Projects")
  345.                (dest (tackon @default-dest "Projects"))
  346.                (pattern "#?")
  347.                (infos)
  348.                (confirm)
  349.     )
  350. )
  351.  
  352.  
  353. ;
  354. ;        **** DEMO MAPS ****
  355. ;
  356.  
  357.  
  358. (complete 70)
  359.  
  360. (if (= 2 (BITAND #MyMask 2))
  361.     (copyfiles (help #MSG_NOHELP)
  362.                (prompt #MSG_CopyMap)
  363.                (source "Maps")
  364.                (dest (tackon @default-dest "Maps"))
  365.                (pattern "#?")
  366.                (infos)
  367.                (confirm)
  368.     )
  369. )
  370.  
  371. ;
  372. ;        **** DEMO PICTURES ****
  373. ;
  374.  
  375.  
  376. (complete 80)
  377.  
  378. (if (= 4 (BITAND #MyMask 4))
  379.     (copyfiles (help #MSG_NOHELP)
  380.                (prompt #MSG_CopyPic)
  381.                (source "Pictures")
  382.                (dest (tackon @default-dest "Pictures"))
  383.                (pattern "#?")
  384.                (infos)
  385.                (confirm)
  386.     )
  387. )
  388.  
  389. ;
  390. ;        **** DEVELOPER FILES ****
  391. ;
  392.  
  393. (complete 90)
  394.  
  395. (if (= 8 (BITAND #MyMask 8))
  396.     ((copyfiles (help #MSG_NOHELP)
  397.                 (prompt #MSG_CopyDev)
  398.                 (source "Developer")
  399.                 (dest (tackon @default-dest "Developer"))
  400.                 (all)
  401.                 (infos)
  402.                 (confirm)
  403.      )
  404.      (copyfiles (help #MSG_NOHELP)
  405.                 (prompt #MSG_CopyDev)
  406.              (source "Developer.info")
  407.              (dest @default-dest)
  408.              (confirm)
  409.      )
  410.     )
  411. )
  412.  
  413. ;
  414. ;             **** DOCS ****
  415. ;
  416.  
  417. (complete 95)
  418.  
  419. (if (= 16 (BITAND #MyMask 16))
  420.     ((copyfiles (help #MSG_NOHELP)
  421.                 (prompt #MSG_CopyDoc)
  422.                 (source "Docs")
  423.                 (dest (tackon @default-dest "Docs"))
  424.                 (all)
  425.                 (infos)
  426.                 (confirm)
  427.      )
  428.      (copyfiles (help #MSG_NOHELP)
  429.                 (prompt #MSG_CopyDoc)
  430.              (source "Docs.info")
  431.              (dest @default-dest)
  432.              (confirm)
  433.      )
  434.     )
  435. )
  436.  
  437. ;
  438. ;        *** ASSIGN ***
  439. ;
  440.  
  441. (makeassign "PowerCrawler" @default-dest)
  442.  
  443. (set #MyCommand (cat "Assign PowerCrawler: \"" @default-dest "\""))
  444.  
  445. (startup "PowerCrawler" (prompt #MSG_Startup)
  446.             (help #MSG_NOHELP)
  447.             (command #MyCommand)
  448.             (confirm)
  449. )
  450.  
  451. (complete 100)
  452.  
  453. (exit #MSG_AllDone)
  454.